Komputer for Alle 1999 #9/1999 CD 9 (black).iso/K-CS.dxr/Internal_22.ls

Text File | 1999-06-18 | 5.0 KB | 194 lines

global Musik, FirstTime, KImage, KCount, WantMusic

on new me
  set KCount to 20
  set KImage to member 342 of castLib "Constant"
end

on enterFrame
  if voidp(Musik) then
    set Musik to 0
  end if
  if Musik = 0 then
    if WantMusic then
      mci("seek baggrund to start")
      mci("play baggrund")
      set Musik to 1
    end if
  end if
  if (KCount mod 100) = 0 then
    if (KCount + 20) >= 700 then
      set KCount to 0
    end if
    if KCount = 400 then
      set KCount to 500
    end if
    set the member of sprite 20 to member (405 + (KCount / 100)) of castLib "Constant"
    set the member of sprite 21 to member (121 + (KCount / 100)) of castLib "Maanedlig"
    set the member of sprite 22 to member (17 + (KCount / 100)) of castLib "Maanedlig"
  end if
  set KCount to KCount + 1
  if ((KCount mod 100) < 17) or ((KCount mod 100) > 82) then
    if (KCount mod 100) = 0 then
      set the height of sprite 20 to 1
    end if
    if (KCount mod 100) = 1 then
      set the height of sprite 20 to 13
    end if
    if (KCount mod 100) = 2 then
      set the height of sprite 20 to 25
    end if
    if (KCount mod 100) = 3 then
      set the height of sprite 20 to 37
    end if
    if (KCount mod 100) = 4 then
      set the height of sprite 20 to 50
    end if
    if (KCount mod 100) = 5 then
      set the height of sprite 20 to 62
    end if
    if (KCount mod 100) = 6 then
      set the height of sprite 20 to 72
    end if
    if (KCount mod 100) = 7 then
      set the height of sprite 20 to 83
    end if
    if (KCount mod 100) = 8 then
      set the height of sprite 20 to 93
    end if
    if (KCount mod 100) = 9 then
      set the height of sprite 20 to 103
    end if
    if (KCount mod 100) = 10 then
      set the height of sprite 20 to 111
    end if
    if (KCount mod 100) = 11 then
      set the height of sprite 20 to 119
    end if
    if (KCount mod 100) = 12 then
      set the height of sprite 20 to 126
    end if
    if (KCount mod 100) = 13 then
      set the height of sprite 20 to 132
    end if
    if (KCount mod 100) = 14 then
      set the height of sprite 20 to 136
    end if
    if (KCount mod 100) = 15 then
      set the height of sprite 20 to 140
    end if
    if (KCount mod 100) = 16 then
      set the height of sprite 20 to 143
    end if
    if (KCount mod 100) = 83 then
      set the height of sprite 20 to 143
    end if
    if (KCount mod 100) = 84 then
      set the height of sprite 20 to 140
    end if
    if (KCount mod 100) = 85 then
      set the height of sprite 20 to 136
    end if
    if (KCount mod 100) = 86 then
      set the height of sprite 20 to 132
    end if
    if (KCount mod 100) = 87 then
      set the height of sprite 20 to 126
    end if
    if (KCount mod 100) = 88 then
      set the height of sprite 20 to 119
    end if
    if (KCount mod 100) = 89 then
      set the height of sprite 20 to 111
    end if
    if (KCount mod 100) = 90 then
      set the height of sprite 20 to 103
    end if
    if (KCount mod 100) = 91 then
      set the height of sprite 20 to 93
    end if
    if (KCount mod 100) = 92 then
      set the height of sprite 20 to 83
    end if
    if (KCount mod 100) = 93 then
      set the height of sprite 20 to 72
    end if
    if (KCount mod 100) = 94 then
      set the height of sprite 20 to 62
    end if
    if (KCount mod 100) = 95 then
      set the height of sprite 20 to 50
    end if
    if (KCount mod 100) = 96 then
      set the height of sprite 20 to 38
    end if
    if (KCount mod 100) = 97 then
      set the height of sprite 20 to 25
    end if
    if (KCount mod 100) = 98 then
      set the height of sprite 20 to 13
    end if
    if (KCount mod 100) = 99 then
      set the height of sprite 20 to 1
    end if
  else
    set the height of sprite 20 to 145
  end if
  if not rollOver(2) then
    set FirstTime to 0
  end if
  if rollOver(2) and not FirstTime then
    go("Surprise")
  else
    if rollOver(4) then
      go("Knap0")
    else
      if rollOver(5) then
        go("Knap1")
      else
        if rollOver(6) then
          go("Knap5")
        else
          if rollOver(7) then
            go("Knap8")
          else
            if rollOver(8) then
              go("Knap9")
            else
              if rollOver(9) then
                go("Knap2")
              else
                if rollOver(10) then
                  go("Knap6")
                else
                  if rollOver(11) then
                    go("Knap4")
                  else
                    if rollOver(12) then
                      go("Afslut")
                    else
                      if rollOver(13) then
                        go("Knap3")
                      else
                        if rollOver(14) then
                          go("Knap7")
                        else
                          go("Main")
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on exitFrame
  go(#loop)
end